home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sun4.md / oldvarargs.ph < prev    next >
Encoding:
Text File  |  1991-08-15  |  592 b   |  19 lines
  1. if (!defined &_VARARGS) {
  2.     eval 'sub _VARARGS {1;}';
  3.     eval 'sub va_alist { &__builtin_va_alist;}';
  4.     eval 'sub va_dcl {\'int\'  &__builtin_va_alist;;}';
  5.     eval 'sub va_start {
  6.         local($list) = @_;
  7.         eval "($list). &vl_current = ($list). &vl_next = (\'char\' *) & &__builtin_va_alist;";
  8.     }';
  9.     eval 'sub va_arg {
  10.         local($list, $type) = @_;
  11.         eval "(($list). &vl_current = ($list). &vl_next, ($list). &vl_next += $sizeof{$type}, *(($type *) ($list). &vl_current))";
  12.     }';
  13.     eval 'sub va_end {
  14.         local($list) = @_;
  15.         eval "";
  16.     }';
  17. }
  18. 1;
  19.